Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vbembdmn/mnuembed.frm

Text File | 1993-02-28 | 2KB | 75 lines

VERSION 2.00
Begin Form MenuForm
   ControlBox      =   0   'False
   Height          =   900
   KeyPreview      =   -1  'True
   Left            =   1095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   180
   ScaleWidth      =   2805
   Top             =   1185
   Width           =   2955
   Begin Menu mnuEmbTop
      Caption         =   "&Embedded Menu"
      Begin Menu mnu1
         Caption         =   "Item &1"
      End
      Begin Menu mnu2
         Caption         =   "Item &2"
      End
      Begin Menu mnu3
         Caption         =   "Item &3"
      End
      Begin Menu sep1
         Caption         =   "-"
      End
      Begin Menu mnu4
         Caption         =   "Item &4"
      End
      Begin Menu mnu5
         Caption         =   "Item &5"
      End
      Begin Menu sep2
         Caption         =   "-"
      End
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
End
Option Explicit

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Const KEY_ESCAPE = &H1B
If KeyCode = KEY_ESCAPE Then MainWindow.SetFocus
End Sub

Sub mnu1_Click ()
   MainWindow.SetFocus
End Sub

Sub mnu2_Click ()
   MainWindow.SetFocus
End Sub

Sub mnu3_Click ()
   MainWindow.SetFocus
End Sub

Sub mnu4_Click ()
   MainWindow.SetFocus
End Sub

Sub mnu5_Click ()
   MainWindow.SetFocus
End Sub

Sub mnuExit_Click ()
    Unload MenuForm
    Unload MainWindow  'Dumps the VB form.
    End   'Shuts down the VB app.
End Sub